Мета: виробити практичні навики застосування операторів введення ( виведення даних, доступу до файлів, керованого виведення.
ПОСТАНОВКА ЗАДАЧІ.
Одночасно з введенням даних з клавіатури здійснити паралельне їх виведення у файл, аналогічно здійснити введення даних з файлу та виведення їх у вікно. Прізвище, ім’я, побатькові вводити як один рядок. Номер варіанту вводити як рядок. Числові дані можна ввести не з клавіатури, а як типізовані константи.
Для затримки використаємо оператор repeat. Він буде виконуватись доки не буде натиснена будь-яка клавіша.
Приклад ескізу текстового файлу(вікна):
група[Enter]
Варіант[Enter]
Прізвище[Enter]
Ім’я[Enter]
По-батькові[Enter]
Число 1 [Enter]
Число 2 [Enter]
Число 3 [Enter]
РОЗРОБКА СТРУКТУРИ ДАНИХ.
Позначення
Імя
Тип
Призначення
Назва групи
s
рядок
Проміжна,
Номер варіанту
d
збереження
ПІП
p,g, h
рядка симв.
Числові дані
k1,k2,k3
дійсна
Проміжні, збереження числових даних
Файл даних
f
текстовий
файл
Звязок з файлом
‘dokyment.txt’
Колір фону та літер
c,w
byte
Відповідають за збереження кольору фону та літер
РОЗРОБКА АЛГОРИТМУ.
При розробці алгоритму треба передбачити наступну послідовність дій: призначити файловій змінній файл на диску; відкриття файлу на запис; введення з клавіатури та паралельне виведення даних у файл; відкриття файлу на читання; зчитування даних з файлу та паралельне виведення в задане вікно; закриття файлу.
РОЗРОБКА ПРОГРАМИ.
program lab3;
uses crt;
var
f:text;
s,d,g,h,p:string;
k1,k2,k3:real;
c,w:byte;
begin
c:=4; {kolir fony}
w:=1; {kolir liter}
window(1,1,40,10); {koordunatu wikna}
textcolor(w);
textbackground(c);
ClrScr;
writeln('nazva grypu :');
readln(s);
writeln('nomer varianty:');
readln(d);
writeln('prizvuwche:');
readln(p);
writeln('imja :');
readln(g);
writeln('Po-batkovi:');
readln(h);
writeln('Chuslovi dani :');
readln(k1);
readln(k2);
readln(k3);
assign(f,'D:\dani.txt');
rewrite(f);
writeln(f,s);
writeln(f,d);
writeln(f,p);
writeln(f,g);
writeln(f,h);
writeln(f,k1:9:2);
writeln(f,k2:9:2);
writeln(f,k3:9:2);
close(f);
repeat until KeyPressed;
system.Reset(f);
writeln;
writeln;
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
close(f);
readln;
end.
ТЕСТУВАННЯ ТА НАЛАГОДЖЕННЯ.
Висновок: я виробив практичні навики застосування операторів введення(виведення даних, доступу до файлів, керованого виведення.
Для того щоб під’єднати файлову змінну до певного файлу на зовнішньому носії я використав процедуру Assign(f, ‘dani.txt’);
Для того щоб перевести вказівник на початок файлу використав процедуру Reset(f).
Міністерство освіти і науки України
НУ «Львівська Політехніка»
Інститут телекомунікацій, радіоелектроніки та електронної техніки
Кафедра теоретичної радіотехніки та радіовимірювань
ЗВІТ З ЛАБОРАТОРНОЇ РОБОТИ №3
НА ТЕМУ: “ВВЕДЕННЯ ( ВИВЕДЕННЯ ДАНИХ”
з дисципліни «Інформатика та обчислювальна техніка»
Варіант №2
Підготував
Студент
Групи РТ-11
Кук С. І.
Прийняв:
Нестор Н. І.
Львів-2010р.
